home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / tpasswrd / pwd.dfm / pwd.txt
Text File  |  1996-09-15  |  2KB  |  98 lines
  1. object Form1: TForm1
  2.   Left = 196
  3.   Top = 100
  4.   BorderStyle = bsSingle
  5.   Caption = 'TPassword Example'
  6.   ClientHeight = 200
  7.   ClientWidth = 466
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   OnCreate = FormCreate
  14.   TextHeight = 16
  15.   object DBGrid1: TDBGrid
  16.     Left = 8
  17.     Top = 24
  18.     Width = 320
  19.     Height = 152
  20.     DataSource = DataSource1
  21.     TabOrder = 0
  22.     TitleFont.Color = clWindowText
  23.     TitleFont.Height = -13
  24.     TitleFont.Name = 'System'
  25.     TitleFont.Style = []
  26.   end
  27.   object Button1: TButton
  28.     Left = 336
  29.     Top = 24
  30.     Width = 121
  31.     Height = 33
  32.     Caption = 'Set Password'
  33.     TabOrder = 1
  34.     OnClick = Button1Click
  35.   end
  36.   object Button2: TButton
  37.     Left = 336
  38.     Top = 64
  39.     Width = 121
  40.     Height = 33
  41.     Caption = 'Clear Password'
  42.     TabOrder = 2
  43.     OnClick = Button2Click
  44.   end
  45.   object Button3: TButton
  46.     Left = 336
  47.     Top = 104
  48.     Width = 121
  49.     Height = 33
  50.     Caption = 'Open Table'
  51.     TabOrder = 3
  52.     OnClick = Button3Click
  53.   end
  54.   object Button4: TButton
  55.     Left = 336
  56.     Top = 144
  57.     Width = 121
  58.     Height = 33
  59.     Caption = 'Close Table'
  60.     TabOrder = 4
  61.     OnClick = Button4Click
  62.   end
  63.   object DataSource1: TDataSource
  64.     DataSet = Table1
  65.     Left = 8
  66.     Top = 168
  67.   end
  68.   object Table1: TTable
  69.     DatabaseName = 'DBDEMOS'
  70.     TableName = 'EMPLOYEE.DB'
  71.     Left = 40
  72.     Top = 168
  73.   end
  74.   object Password1: TPassword
  75.     Copyright = 'Total Data Concept AS 1995'
  76.     TableName = Table1
  77.     AfterSetPassword = Password1AfterSetPassword
  78.     AfterClearPassword = Password1AfterClearPassword
  79.     Left = 88
  80.     Top = 168
  81.   end
  82.   object PasswordBox1: TPasswordBox
  83.     Copyright = 'Total Data Concept AS 1996'
  84.     Font.Color = clBlack
  85.     Font.Height = -13
  86.     Font.Name = 'System'
  87.     Font.Style = [fsBold]
  88.     OKButton = '&OK'
  89.     CancelButton = '&Cancel'
  90.     Caption = 'Password'
  91.     Prompt = 'Enter password'
  92.     NumTries = 3
  93.     OnNotPassed = PasswordBox1NotPassed
  94.     Left = 120
  95.     Top = 168
  96.   end
  97. end
  98.